SET QUOTED_IDENTIFIER OFF
GO
SET ANSI_NULLS ON
GO
CREATE PROCEDURE [dbo].[SP_TDDEVO_NCRP_D01]  
/*-------------------------------------------------------*/  
/*---Empresa              : OFISIS S.A.                --*/  
/*---Cliente              : OFISIS                  --*/  
/*---Sistema              : Tesoreria                  --*/  
/*---M«dulo               : Empresa                    --*/  
/*---Programa             : Borrado Guias Ingreso (O/C-O/S) --*/  
/*---                       Devoluciones N/Creditos    --*/  
/*---Script               : SP_TDORDE_FACT_D01.sql     --*/  
/*---Nombre SP            : SP_TDORDE_FACT_D01         --*/  
/*---Desarrollado por     : Javier Flores A.           --*/  
/*---Fecha Creaci«n       : 23/07/2004                 --*/  
/*---Base Datos           : Microsoft Sql Server       --*/  
/*---Versi«n              : 8.0                        --*/  
/*---Invoca a SP          :                            --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Modificado 1 por     :           --*/  
/*---Fecha Modificaci«n   :    --*/   
/*---Detalle Modificaci«n :    --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/*---Comentarios                                       --*/  
/*---                                                  --*/  
/*---                                                  --*/  
/*-------------------------------------------------------*/  
  
/*-------------------------------------------------------*/  
/* DROP PROC SP_TDDEVO_NCRP_D01     */  
/* GRANT ALL ON SP_TDDEVO_NCRP_D01 TO PUBLIC     */  
/* SP_TDDEVO_NCRP_D01{{                                    */  
/*-------------------------------------------------------*/  
@ISCO_EMPR       TD_VC_003,  
@ISCO_USUA_MODI  TD_VC_008,  
@ISCO_PROV       TD_VC_020,  
@ISCO_TIPO_DOCU  TD_VC_003,  
@ISNU_DOCU_PROV  TD_VC_020,  
@ISTI_DOCU_DEVO  TD_VC_003,  
@ISNU_DOCU_DEVO  TD_VC_020,  
@INNU_CORR       TD_IN_001,  
@ISCO_UNID       TD_VC_003,  
@ISCO_ALMA       TD_VC_003
	As
DECLARE  
  @VDFE_USUA_MODI  TD_DT_001,  
  @VSST_CNTR_PRES  TD_VC_001,   
  @VNAA_CNTR       TD_IN_001,   
  @VNMM_CNTR       TD_IN_001,   
  @VNNU_FETC_0001  TD_IN_001, /* Status del cursor */  
  @CSCO_PART    TD_VC_020,   
  @VSTI_SITU    TD_VC_003,   
  @VSST_CNTR_PARA  TD_VC_001,   
  @VNIM_PART     TD_NU_016_004,   
  @VNCA_PART       TD_IN_001,  
  @VSVA_MENS     TD_VC_100,   
  @VNIM_SALD    TD_NU_016_004,   
  @VSST_SIGN    TD_VC_001,   
  @VNIM_REAL    TD_NU_016_004,   
  @VSCO_MONE_PART  TD_VC_003,   
  @VNIM_UNIT    TD_NU_016_004,   
  @VSCO_MONE_ORCO  TD_VC_003,   
  @VDFE_EMIS_ORCO  TD_DT_001,   
  @VDFE_EMIS_DOCU  TD_DT_001,   
  @VSTI_CAMB    TD_VC_001,   
  @VSTI_ORIG    TD_VC_001,   
  @VSCO_MONE_NACI  TD_VC_003,   
  @VSCO_MONE_EXTR  TD_VC_003,   
  @VNFA_CAMB_DOCU  TD_NU_016_004,   
  @VNFA_CAMB_ORCO  TD_NU_016_004,   
  @VSTI_CAMB_LOGI  TD_VC_001,   
  @VSTI_ORIG_LOGI  TD_VC_001,  
  @VSMO_NACI_LOGI  TD_VC_003,    
  @VSMO_EXTR_LOGI  TD_VC_003,     
  @VNIM_COMP       TD_NU_016_004,   
  @VNNU_REGI_EMPR  TD_IN_001,  
  @VSCO_UNID_CNTB  TD_VC_003,  
  @VSCO_TIAU_PROV  TD_VC_001,  
  @VNIM_MVTO_CNTB  TD_NU_016_004,  
  @VNNU_SECU_PRES  TD_IN_001,  
  @VSCO_MONE_DOCU  TD_VC_003,  
  @VSST_PRES       TD_VC_001  
  
BEGIN  
  
  
Begin Tran SP_TDDEVO_NCRP_D01  
  
        Delete TDDEVO_NCRP  
 Where  CO_EMPR = @ISCO_EMPR  
        And    CO_PROV = @ISCO_PROV   
        And    CO_TIPO_DOCU = @ISCO_TIPO_DOCU  
        And    NU_DOCU_PROV = @ISNU_DOCU_PROV  
        And    NU_CORR = @INNU_CORR  
  
        If @@error <> 0  
           Begin  
             Rollback tran  
      Return  
           End      
  
          SELECT @VDFE_USUA_MODI = Getdate()  
  
          If @ISTI_DOCU_DEVO is not Null AND LTRIM(RTRIM(@ISTI_DOCU_DEVO)) != ''  
             Begin            
                Update  TCDOCU_ALMA   
  Set  ST_TESO = 'N', CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = @VDFE_USUA_MODI  
                Where   NU_DOCU = @ISNU_DOCU_DEVO  
                And     TI_DOCU = @ISTI_DOCU_DEVO  
                And     CO_ALMA = @ISCO_ALMA  
  And     CO_UNID = @ISCO_UNID  
  And     CO_EMPR = @ISCO_EMPR  
  
                If @@error <> 0  
                   Begin  
                     Rollback tran  
              Return  
                   End      
             End  
   
         If Not Exists ( Select * From TDDEVO_NCRP  
            Where CO_EMPR = @ISCO_EMPR  
            And   CO_PROV = @ISCO_PROV   
            And   CO_TIPO_DOCU = @ISCO_TIPO_DOCU  
            And   NU_DOCU_PROV = @ISNU_DOCU_PROV )    
  
            Begin   
               Update  TMDOCU_PROV   
  Set  ST_ORIG_COSE = NULL, CO_USUA_MODI = @ISCO_USUA_MODI, FE_USUA_MODI = Getdate()  
      Where   CO_EMPR = @ISCO_EMPR  
               And     CO_PROV = @ISCO_PROV   
               And     CO_TIPO_DOCU = @ISCO_TIPO_DOCU  
               And     NU_DOCU_PROV = @ISNU_DOCU_PROV  
  
              If @@error <> 0  
                 Begin  
                   Rollback tran  
                   Return  
                 End      
             End  
  Commit Tran  
End  
/*-------------------------- Fin ------------------------------*/


GO
